Private Sub Command1_Click()
Dim q, w, e, r, t, y, u, i, o, p, S As Single
q = Val(Text1.Text)
w = Val(Text2.Text)
e = Val(Text3.Text)
r = Val(Text4.Text)
t = Val(Text5.Text)
y = Val(Text6.Text)
u = Val(Text7.Text)
i = Val(Text8.Text)
o = Val(Text9.Text)
p = Val(Text10.Text)
S = q + w + e + r + t + y + u + i + o + p
Text11.Text = Str(S)
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Form1.Caption = " "
End Sub
